home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog45 < prev    next >
Encoding:
Text File  |  1995-06-29  |  670 b   |  39 lines
  1. # testing if we can send events to a widget
  2. # and get a result back out of it
  3.  
  4. proc activateCB {} {
  5.     return "...activated"
  6. }
  7.  
  8. proc disarmCB {} {
  9.     return "...disarmed"
  10. }
  11.  
  12. proc armCB {} {
  13.     return "...armed"
  14. }
  15.  
  16. xtAppInitialize -class Btn
  17.  
  18. xmPushButton .btn managed -labelString "Hello world"
  19. .btn destroyWidget
  20.  
  21. xmPushButton .btn1 managed -labelString "Hello world"
  22. .btn1 destroyWidget
  23.  
  24. xmPushButton .btn2 managed -labelString "Hello world"
  25. .btn2 destroyWidget
  26.  
  27. xmPushButton .btn managed -labelString "Hello world"
  28. .btn destroyWidget
  29.  
  30. xmForm .form managed
  31. xmList .form.list managed
  32. .form.list destroyWidget
  33.  
  34. xmList .form.list2 managed
  35.  
  36. . realizeWidget
  37.  
  38. . mainLoop
  39.